Nazev disku
Otázka od: delphi.info@centrum.cz
1. 12. 2003 16:10
jak zjistim jmeno disku? HDD, nebo treba CD v mechanice?
Ing. Miloslav Kos
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: kexo
1. 12. 2003 16:46
pozri si GetVolumeInformation
kexo
----- Original Message -----
From: <delphi.info@centrum.cz>
To: <delphi-l@clexpert.cz>
Sent: Monday, December 01, 2003 3:38 PM
Subject: Nazev disku
> jak zjistim jmeno disku? HDD, nebo treba CD v mechanice?
>
> Ing. Miloslav Kos
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: delphi.info@centrum.cz
2. 12. 2003 7:45
zkousim to takhle , le nejde to, nevis co delam spatne????
var DiskChar, DiskName:String;
a, b : DWord;
Buffer :array [0..255] of char;
SerialNum : pdword;
begin
//jmeno disku
DiskChar:=Copy(dbDiskBazeWin.Disk ,1, 1);
GetVolumeInformation( Pchar(Pchar(DiskChar)+':\'), Buffer, SizeOf
(Buffer), SerialNum, a, b, nil, 0);
DiskName:=PChar(Copy(Buffer, 1, Length(Buffer)));
end;
______________________________________________________________
> Od: "kexo" <kexo@ynet.sk>
> Komu: delphi-l@clexpert.cz
> CC:
> Datum: Mon, 1 Dec 2003 16:44:16 +0100
> Predmet: Re: Nazev disku
>
> pozri si GetVolumeInformation
> kexo
>
> ----- Original Message -----
> From: <delphi.info@centrum.cz>
> To: <delphi-l@clexpert.cz>
> Sent: Monday, December 01, 2003 3:38 PM
> Subject: Nazev disku
>
>
> > jak zjistim jmeno disku? HDD, nebo treba CD v mechanice?
> >
> > Ing. Miloslav Kos
> >
>
>
>
Odpovedá: Jiri Virt
2. 12. 2003 8:15
function GetDriveName(Disk:char):string;
var
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
VolumeName : string;
begin
SetLength(VolumeName, 64);
GetVolumeInformation(PChar(Disk+':\'),PChar(VolumeName),Length(VolumeName),n
il,MaximumComponentLength,FileSystemFlags,nil,0);
result := VolumeName;
end;
Jirka Virt
Odpovedá: delphi.info@centrum.cz
3. 12. 2003 7:48
dekuju
______________________________________________________________
> Od: "Jiri Virt" <virt@volny.cz>
> Komu: delphi-l@clexpert.cz
> CC:
> Datum: Tue, 2 Dec 2003 08:15:16 +0100
> Predmet: Re: Nazev disku
>
> function GetDriveName(Disk:char):string;
> var
> MaximumComponentLength : DWORD;
> FileSystemFlags : DWORD;
> VolumeName : string;
> begin
> SetLength(VolumeName, 64);
> GetVolumeInformation(PChar(Disk+':\'),PChar(VolumeName),Length
(VolumeName),n
> il,MaximumComponentLength,FileSystemFlags,nil,0);
> result := VolumeName;
> end;
>
>
> Jirka Virt
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)